Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Bombardier_PC/BSCRIPTS.CST/00015_Script_15

Text File | 1999-04-25 | 1KB | 34 lines

-- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
-- Developed for Bombardier, Inc.
--
-- All programming developed by:
-- Robert Fabricant, Valerie Valoueva, Ossi Shaked,
-- Henry Sauvageot, Chris Howell & Chris Girand
--
-- Use of this code by parties other than @radical.media, inc. or their
--agents
-- without the express written consent of @radical.media, inc. AND Concurrent
-- New Media Group, L.L.C. is strictly prohibited.
------------------------------------------------------

on exitFrame
  global gSelct,gImage,NumOfQTVRMenuItems
  set qtvrPlaneSprNum = getSpriteNumFromMemberName("qtvranchor")+1
  set range = NumOfQTVRMenuItems - 1

  if gSelct <> qtvrPlaneSprNum+range and gSelct <>"" then
    set the castnum of sprite gSelct to gImage
    set the castnum of sprite gSelct+1 to gImage-1
    updatestage

  end if

  if gSelct <> qtvrPlaneSprNum+range then
    set gSelct = qtvrPlaneSprNum+range
    set gImage = the castnum of sprite gSelct
    set the castnum of sprite gSelct to the castnum of sprite gSelct +18
  end if

  updatestage
end